(readevalloop): Correctly unbind the unwind protect.

diff --git a/src/lread.c b/src/lread.c
index 2e8d135ba32306537b3723aacd8cb70f9211fa19..f720c76c45856203b1c0c1d3e4573731987873bf 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -723,9 +723,10 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag)
 
       if (!NILP (Vpurify_flag) && c == '(')
        {
+         int count1 = specpdl_ptr - specpdl;
          record_unwind_protect (unreadpure, Qnil);
          val = read_list (-1, readcharfun);
-         unbind_to (count + 1, Qnil);
+         unbind_to (count1, Qnil);
        }
       else
        {